home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Positions / p-replace-section < prev    next >
Encoding:
Text File  |  1997-02-04  |  721 b   |  24 lines  |  [TEXT/ScoM]
  1. p-replace-section seed position new-item section sequence 
  2.  
  3. 0-based 
  4.  
  5. This function enables items occupying specific locations within a section of a sequence of lists to be replaced by other items. Specific locations may include: a position number n, first, last and rnd.
  6.  
  7. See Ample  example.
  8.  
  9. (def-duration
  10.   rhand (append
  11.          (p-replace-section
  12.           nil '(3 6 10 13) '1/128
  13.           (gen-repeat 4 (g-integer 1 15))
  14.           (subseq (length-of rhand) 0 15))
  15.          (p-replace-section
  16.           nil '(3 6 10 13) '1/64
  17.           (gen-repeat 4 (g-integer 1 14))
  18.           (subseq (length-of rhand) 15 29))
  19.          (subseq (length-of rhand) 29 35))
  20.   lhand1 (length-of lhand1)
  21.   lhand2 (length-of lhand2))
  22.  
  23.  
  24.